Nuprl Lemma : rel-rel-plus
11,40
postcript
pdf
T
:Type,
R
:(
T
T
prop{i:l}),
x
,
y
:
T
. (
x
R
y
)
(
x
rel_plus(
T
;
R
)
y
)
latex
Definitions
x
:
A
.
B
(
x
)
,
prop{i:l}
,
P
Q
,
x
f
y
,
rel_plus(
T
;
R
)
,
t
T
,
x
:
A
.
B
(
x
)
,
,
rel_exp(
T
;
R
;
n
)
,
Y
,
if
b
then
t
else
f
fi
,
(
i
=
j
)
,
tt
,
ff
,
P
Q
,
A
c
B
,
subtype(
S
;
T
)
Lemmas
rel
exp
wf
,
nat
plus
inc
origin
T:Type, R:(T
Tprop{i:l}), x,y:T. (x R y) 
(x rel_plus(T; R) y) T:Type, R:(TTprop{i:l}), x,y:T. (x R y) (x rel_plus(T; R) y) x:A. B(x) Q
T
x:A. B(x)
j)
Q B